home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / SOMEWHAT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-07-12  |  952 b   |  36 lines
  1. (**
  2.  Written by Lucifer48 / ID
  3.  for The +O Selftest for crackers (Somewhat harder)
  4. **)
  5.  
  6. Uses DOS;
  7. (**************************************************************************)
  8. Procedure ebx;
  9. Var x3,x4,x6,x7 : longint;
  10. Begin
  11. For x3:=1 to 9 do
  12.   For x4:=1 to 9 do
  13.     For x6:=1 to 9 do
  14.       For x7:=1 to 9 do
  15.         If ((x6*$DEAAD+x3*$4EF8F) XOR (x4*$C94CD) XOR (x7*$43421))=$620D34
  16.           Then writeln('x3=',x3,' x4=',x4,' x6=',x6,' x7=',x7);
  17. End;
  18.  
  19. (**************************************************************************)
  20. Procedure esi;
  21. Var x1,x2,x5,x8 : longint;
  22. Begin
  23. For x1:=1 to 9 do
  24.   For x2:=1 to 9 do
  25.     For x5:=1 to 9 do
  26.       For x8:=1 to 9 do
  27.         If ((((x2*$8AF) XOR (x8*$8A040)) + (x1*$674E8)) XOR (x5*$97AC5))=$C366F9
  28.           Then writeln('x1=',x1,' x2=',x2,' x5=',x5,' x8=',x8);
  29. End;
  30.  
  31. (**************************************************************************)
  32. Begin
  33. ebx;
  34. esi;
  35. readln;
  36. End.